/ Celestin Apprentice 7 / Apprentice-Release7.iso / Demos / Bowers Development / AppMaker 2.1.sit / AppMaker 2.1 / Examples / TCL / Gadgets / zSliders.cp

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 7a 53 6c 69 64 65 | 72 73 2e 63 70 00 00 00 |..zSlide|rs.cp...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 07 93 00 | 00 01 1e af 39 4a 8a af |........|....9J..|
|00000060| 39 4a 8a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |9J......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 69 4e 00 00 |........|....iN..|
|00000080| 2f 2a 20 7a 53 6c 69 64 | 65 72 73 2e 63 70 20 2d |/* zSlid|ers.cp -|
|00000090| 2d 20 73 75 62 77 69 6e | 64 6f 77 20 6d 65 74 68 |- subwin|dow meth|
|000000a0| 6f 64 73 20 2a 2f 0d 2f | 2a 20 43 72 65 61 74 65 |ods */./|* Create|
|000000b0| 64 20 32 2f 32 35 2f 39 | 37 20 31 30 3a 30 33 20 |d 2/25/9|7 10:03 |
|000000c0| 50 4d 20 62 79 20 41 70 | 70 4d 61 6b 65 72 20 2a |PM by Ap|pMaker *|
|000000d0| 2f 0d 0d 2f 2a 09 57 65 | 20 72 65 63 6f 6d 6d 65 |/../*.We| recomme|
|000000e0| 6e 64 20 74 68 61 74 20 | 79 6f 75 20 6e 6f 74 20 |nd that |you not |
|000000f0| 6d 6f 64 69 66 79 20 74 | 68 69 73 20 6d 6f 64 75 |modify t|his modu|
|00000100| 6c 65 20 61 6e 64 20 69 | 6e 73 74 65 61 64 20 6d |le and i|nstead m|
|00000110| 6f 64 69 66 79 09 09 2a | 2f 0d 2f 2a 09 69 74 73 |odify..*|/./*.its|
|00000120| 20 73 75 62 63 6c 61 73 | 73 2c 20 53 6c 69 64 65 | subclas|s, Slide|
|00000130| 72 73 2e 20 20 54 68 65 | 20 27 7a 27 20 70 72 65 |rs.  The| 'z' pre|
|00000140| 66 69 78 20 6f 6e 20 74 | 68 69 73 20 6d 6f 64 75 |fix on t|his modu|
|00000150| 6c 65 20 6d 61 72 6b 73 | 09 09 2a 2f 0d 2f 2a 09 |le marks|..*/./*.|
|00000160| 61 20 6d 6f 64 75 6c 65 | 20 77 68 69 63 68 20 69 |a module| which i|
|00000170| 73 20 6c 69 6b 65 6c 79 | 20 74 6f 20 62 65 20 72 |s likely| to be r|
|00000180| 65 67 65 6e 65 72 61 74 | 65 64 20 62 79 20 41 70 |egenerat|ed by Ap|
|00000190| 70 4d 61 6b 65 72 20 61 | 66 74 65 72 20 79 6f 75 |pMaker a|fter you|
|000001a0| 09 2a 2f 0d 2f 2a 09 6d | 61 6b 65 20 63 68 61 6e |.*/./*.m|ake chan|
|000001b0| 67 65 73 20 74 6f 20 74 | 68 65 20 75 73 65 72 20 |ges to t|he user |
|000001c0| 69 6e 74 65 72 66 61 63 | 65 2e 20 20 54 68 65 20 |interfac|e.  The |
|000001d0| 6d 6f 64 75 6c 65 73 20 | 77 69 74 68 6f 75 74 20 |modules |without |
|000001e0| 74 68 65 20 27 7a 27 09 | 2a 2f 0d 2f 2a 09 70 72 |the 'z'.|*/./*.pr|
|000001f0| 65 66 69 78 20 77 69 6c | 6c 20 6e 6f 74 20 62 65 |efix wil|l not be|
|00000200| 20 72 65 67 65 6e 65 72 | 61 74 65 64 20 62 79 20 | regener|ated by |
|00000210| 41 70 70 4d 61 6b 65 72 | 20 75 6e 6c 65 73 73 20 |AppMaker| unless |
|00000220| 79 6f 75 20 64 65 6c 65 | 74 65 20 74 68 65 6d 2e |you dele|te them.|
|00000230| 09 2a 2f 0d 2f 2a 09 55 | 73 69 6e 67 20 61 20 73 |.*/./*.U|sing a s|
|00000240| 65 70 61 72 61 74 65 20 | 73 75 62 63 6c 61 73 73 |eparate |subclass|
|00000250| 20 74 6f 20 6f 76 65 72 | 72 69 64 65 20 74 68 65 | to over|ride the|
|00000260| 20 41 70 70 4d 61 6b 65 | 72 2d 67 65 6e 65 72 61 | AppMake|r-genera|
|00000270| 74 65 64 20 63 6f 64 65 | 09 2a 2f 0d 2f 2a 09 6c |ted code|.*/./*.l|
|00000280| 65 74 73 20 79 6f 75 20 | 72 65 67 65 6e 65 72 61 |ets you |regenera|
|00000290| 74 65 20 63 6f 64 65 20 | 77 69 74 68 6f 75 74 20 |te code |without |
|000002a0| 6c 6f 73 69 6e 67 20 79 | 6f 75 72 20 68 61 6e 64 |losing y|our hand|
|000002b0| 2d 63 6f 64 65 64 20 63 | 68 61 6e 67 65 73 2e 09 |-coded c|hanges..|
|000002c0| 2a 2f 20 0d 0d 23 69 6e | 63 6c 75 64 65 20 3c 43 |*/ ..#in|clude <C|
|000002d0| 6f 6d 6d 61 6e 64 73 2e | 68 3e 0d 23 69 6e 63 6c |ommands.|h>.#incl|
|000002e0| 75 64 65 20 3c 43 42 61 | 72 74 65 6e 64 65 72 2e |ude <CBa|rtender.|
|000002f0| 68 3e 0d 23 69 6e 63 6c | 75 64 65 20 3c 43 57 69 |h>.#incl|ude <CWi|
|00000300| 6e 64 6f 77 2e 68 3e 0d | 23 69 6e 63 6c 75 64 65 |ndow.h>.|#include|
|00000310| 20 3c 43 53 69 7a 65 42 | 6f 78 2e 68 3e 0d 23 69 | <CSizeB|ox.h>.#i|
|00000320| 6e 63 6c 75 64 65 20 3c | 43 53 6c 69 64 65 72 2e |nclude <|CSlider.|
|00000330| 68 3e 0d 23 69 6e 63 6c | 75 64 65 20 22 7a 53 6c |h>.#incl|ude "zSl|
|00000340| 69 64 65 72 73 2e 68 22 | 0d 0d 65 78 74 65 72 6e |iders.h"|..extern|
|00000350| 20 43 44 65 73 6b 74 6f | 70 09 09 2a 67 44 65 73 | CDeskto|p..*gDes|
|00000360| 6b 74 6f 70 3b 0d 65 78 | 74 65 72 6e 20 43 42 61 |ktop;.ex|tern CBa|
|00000370| 72 74 65 6e 64 65 72 09 | 2a 67 42 61 72 74 65 6e |rtender.|*gBarten|
|00000380| 64 65 72 3b 0d 0d 23 64 | 65 66 69 6e 65 20 53 6c |der;..#d|efine Sl|
|00000390| 69 64 65 72 73 49 44 09 | 31 30 31 30 20 0d 0d 2f |idersID.|1010 ../|
|000003a0| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2a 2f 0d 76 6f |*-------|---*/.vo|
|000003b0| 69 64 09 5a 53 6c 69 64 | 65 72 73 3a 3a 49 5a 53 |id.ZSlid|ers::IZS|
|000003c0| 6c 69 64 65 72 73 09 28 | 43 44 69 72 65 63 74 6f |liders.(|CDirecto|
|000003d0| 72 4f 77 6e 65 72 09 09 | 2a 61 53 75 70 65 72 76 |rOwner..|*aSuperv|
|000003e0| 69 73 6f 72 29 0d 7b 0d | 09 43 56 69 65 77 09 09 |isor).{.|.CView..|
|000003f0| 09 2a 65 6e 63 6c 6f 73 | 75 72 65 3b 0d 09 43 42 |.*enclos|ure;..CB|
|00000400| 75 72 65 61 75 63 72 61 | 74 09 09 2a 73 75 70 65 |ureaucra|t..*supe|
|00000410| 72 76 69 73 6f 72 3b 0d | 09 43 53 69 7a 65 42 6f |rvisor;.|.CSizeBo|
|00000420| 78 09 09 2a 61 53 69 7a | 65 42 6f 78 3b 0d 0d 09 |x..*aSiz|eBox;...|
|00000430| 69 6e 68 65 72 69 74 65 | 64 3a 3a 49 44 69 72 65 |inherite|d::IDire|
|00000440| 63 74 6f 72 20 28 61 53 | 75 70 65 72 76 69 73 6f |ctor (aS|uperviso|
|00000450| 72 29 3b 0d 0d 09 69 74 | 73 57 69 6e 64 6f 77 20 |r);...it|sWindow |
|00000460| 3d 20 6e 65 77 20 43 57 | 69 6e 64 6f 77 3b 0d 09 |= new CW|indow;..|
|00000470| 69 74 73 57 69 6e 64 6f | 77 2d 3e 49 57 69 6e 64 |itsWindo|w->IWind|
|00000480| 6f 77 20 28 53 6c 69 64 | 65 72 73 49 44 2c 20 46 |ow (Slid|ersID, F|
|00000490| 41 4c 53 45 2c 20 67 44 | 65 73 6b 74 6f 70 2c 20 |ALSE, gD|esktop, |
|000004a0| 74 68 69 73 29 3b 0d 0d | 09 65 6e 63 6c 6f 73 75 |this);..|.enclosu|
|000004b0| 72 65 20 3d 20 69 74 73 | 57 69 6e 64 6f 77 3b 0d |re = its|Window;.|
|000004c0| 09 73 75 70 65 72 76 69 | 73 6f 72 20 3d 20 74 68 |.supervi|sor = th|
|000004d0| 69 73 3b 0d 0d 0d 09 69 | 74 73 56 65 72 74 69 63 |is;....i|tsVertic|
|000004e0| 61 6c 53 63 72 6f 6c 6c | 20 3d 20 6e 65 77 20 43 |alScroll| = new C|
|000004f0| 53 6c 69 64 65 72 3b 0d | 09 69 74 73 56 65 72 74 |Slider;.|.itsVert|
|00000500| 69 63 61 6c 53 63 72 6f | 6c 6c 2d 3e 49 56 69 65 |icalScro|ll->IVie|
|00000510| 77 52 65 73 20 28 27 43 | 74 6c 50 27 2c 20 31 30 |wRes ('C|tlP', 10|
|00000520| 31 31 2c 20 65 6e 63 6c | 6f 73 75 72 65 2c 20 73 |11, encl|osure, s|
|00000530| 75 70 65 72 76 69 73 6f | 72 29 3b 0d 0d 09 69 74 |uperviso|r);...it|
|00000540| 73 53 6c 69 64 65 72 53 | 63 72 6f 6c 6c 20 3d 20 |sSliderS|croll = |
|00000550| 6e 65 77 20 43 53 6c 69 | 64 65 72 3b 0d 09 69 74 |new CSli|der;..it|
|00000560| 73 53 6c 69 64 65 72 53 | 63 72 6f 6c 6c 2d 3e 49 |sSliderS|croll->I|
|00000570| 56 69 65 77 52 65 73 20 | 28 27 43 74 6c 50 27 2c |ViewRes |('CtlP',|
|00000580| 20 31 30 31 32 2c 20 65 | 6e 63 6c 6f 73 75 72 65 | 1012, e|nclosure|
|00000590| 2c 20 73 75 70 65 72 76 | 69 73 6f 72 29 3b 0d 0d |, superv|isor);..|
|000005a0| 09 69 74 73 53 70 69 6e | 6e 65 72 53 63 72 6f 6c |.itsSpin|nerScrol|
|000005b0| 6c 20 3d 20 6e 65 77 20 | 43 53 6c 69 64 65 72 3b |l = new |CSlider;|
|000005c0| 0d 09 69 74 73 53 70 69 | 6e 6e 65 72 53 63 72 6f |..itsSpi|nnerScro|
|000005d0| 6c 6c 2d 3e 49 56 69 65 | 77 52 65 73 20 28 27 43 |ll->IVie|wRes ('C|
|000005e0| 74 6c 50 27 2c 20 31 30 | 31 33 2c 20 65 6e 63 6c |tlP', 10|13, encl|
|000005f0| 6f 73 75 72 65 2c 20 73 | 75 70 65 72 76 69 73 6f |osure, s|uperviso|
|00000600| 72 29 3b 0d 0d 09 69 74 | 73 48 6f 72 69 7a 6f 6e |r);...it|sHorizon|
|00000610| 74 61 6c 53 63 72 6f 6c | 6c 20 3d 20 6e 65 77 20 |talScrol|l = new |
|00000620| 43 53 6c 69 64 65 72 3b | 0d 09 69 74 73 48 6f 72 |CSlider;|..itsHor|
|00000630| 69 7a 6f 6e 74 61 6c 53 | 63 72 6f 6c 6c 2d 3e 49 |izontalS|croll->I|
|00000640| 56 69 65 77 52 65 73 20 | 28 27 43 74 6c 50 27 2c |ViewRes |('CtlP',|
|00000650| 20 31 30 31 34 2c 20 65 | 6e 63 6c 6f 73 75 72 65 | 1014, e|nclosure|
|00000660| 2c 20 73 75 70 65 72 76 | 69 73 6f 72 29 3b 0d 0d |, superv|isor);..|
|00000670| 09 69 74 73 50 69 63 74 | 53 6c 69 64 65 72 53 63 |.itsPict|SliderSc|
|00000680| 72 6f 6c 6c 20 3d 20 6e | 65 77 20 43 53 6c 69 64 |roll = n|ew CSlid|
|00000690| 65 72 3b 0d 09 69 74 73 | 50 69 63 74 53 6c 69 64 |er;..its|PictSlid|
|000006a0| 65 72 53 63 72 6f 6c 6c | 2d 3e 49 56 69 65 77 52 |erScroll|->IViewR|
|000006b0| 65 73 20 28 27 43 74 6c | 50 27 2c 20 31 30 31 35 |es ('Ctl|P', 1015|
|000006c0| 2c 20 65 6e 63 6c 6f 73 | 75 72 65 2c 20 73 75 70 |, enclos|ure, sup|
|000006d0| 65 72 76 69 73 6f 72 29 | 3b 0d 09 69 74 73 4d 61 |ervisor)|;..itsMa|
|000006e0| 69 6e 50 61 6e 65 20 3d | 20 4e 55 4c 4c 3b 0d 0d |inPane =| NULL;..|
|000006f0| 09 61 53 69 7a 65 42 6f | 78 20 3d 20 6e 65 77 20 |.aSizeBo|x = new |
|00000700| 43 53 69 7a 65 42 6f 78 | 3b 0d 09 61 53 69 7a 65 |CSizeBox|;..aSize|
|00000710| 42 6f 78 2d 3e 49 53 69 | 7a 65 42 6f 78 20 28 65 |Box->ISi|zeBox (e|
|00000720| 6e 63 6c 6f 73 75 72 65 | 2c 20 73 75 70 65 72 76 |nclosure|, superv|
|00000730| 69 73 6f 72 29 3b 0d 0d | 7d 20 2f 2a 20 49 5a 53 |isor);..|} /* IZS|
|00000740| 6c 69 64 65 72 73 20 2a | 2f 0d 0d 2f 2a 2d 2d 2d |liders *|/../*---|
|00000750| 2d 2d 2d 2d 2d 2d 2d 2a | 2f 0d 76 6f 69 64 09 5a |-------*|/.void.Z|
|00000760| 53 6c 69 64 65 72 73 3a | 3a 44 6f 43 6f 6d 6d 61 |Sliders:|:DoComma|
|00000770| 6e 64 09 09 28 6c 6f 6e | 67 09 09 74 68 65 43 6f |nd..(lon|g..theCo|
|00000780| 6d 6d 61 6e 64 29 0d 7b | 0d 09 73 77 69 74 63 68 |mmand).{|..switch|
|00000790| 20 28 74 68 65 43 6f 6d | 6d 61 6e 64 29 20 7b 0d | (theCom|mand) {.|
|000007a0| 0d 09 09 64 65 66 61 75 | 6c 74 3a 0d 09 09 09 09 |...defau|lt:.....|
|000007b0| 69 6e 68 65 72 69 74 65 | 64 3a 3a 44 6f 43 6f 6d |inherite|d::DoCom|
|000007c0| 6d 61 6e 64 20 28 74 68 | 65 43 6f 6d 6d 61 6e 64 |mand (th|eCommand|
|000007d0| 29 3b 0d 09 09 09 62 72 | 65 61 6b 3b 0d 09 7d 20 |);....br|eak;..} |
|000007e0| 2f 2a 20 73 77 69 74 63 | 68 20 2a 2f 0d 0d 7d 20 |/* switc|h */..} |
|000007f0| 2f 2a 20 44 6f 43 6f 6d | 6d 61 6e 64 20 2a 2f 0d |/* DoCom|mand */.|
|00000800| 0d 2f 2a 20 7a 53 6c 69 | 64 65 72 73 2e 63 70 20 |./* zSli|ders.cp |
|00000810| 2a 2f 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |*/......|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000890| 00 00 00 00 01 80 ca d0 | 01 80 ca 40 00 00 00 00 |........|...@....|
|000008a0| 01 3a 6d e0 00 00 00 00 | 54 45 58 54 03 2e 66 72 |.:m.....|TEXT..fr|
|000008b0| 0b 7a 53 6c 69 64 65 72 | 73 2e 63 70 02 00 00 00 |.zSlider|s.cp....|
|000008c0| 54 45 58 54 4b 41 48 4c | 00 00 65 2c 64 c0 00 00 |TEXTKAHL|..e,d...|
|000008d0| 00 00 54 45 58 54 4b 41 | 48 4c 00 00 65 2c 64 c0 |..TEXTKA|HL..e,d.|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 af 39 12 4a 00 00 | 07 93 00 00 01 1e 00 00 |...9.J..|........|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000910| 00 00 00 00 0c 4d 57 20 | 43 2f 43 2b 2b 20 36 38 |.....MW |C/C++ 68|
|00000920| 4b 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |K.......|........|
|00000930| 00 00 00 00 10 00 00 00 | 54 45 58 54 04 2e 69 64 |........|TEXT..id|
|00000940| 6c 73 73 de 00 01 de f4 | 01 4c 37 38 01 7c 9a 50 |lss.....|.L78.|.P|
|00000950| 01 4c 22 70 01 4c 22 fc | 01 7c ac 08 0e 53 4f 4d |.L"p.L".|.|...SOM|
|00000960| 6f 62 6a 65 63 74 73 aa | 20 54 53 00 01 80 ca d0 |objects.| TS.....|
|00000970| 01 80 ca 40 00 00 00 00 | 01 3a 5d fc 80 00 00 00 |...@....|.:].....|
|00000980| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000990| 00 00 00 00 00 00 00 00 | 00 1c 00 1e ff ff 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+